home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / SEQ TO GRT-CIR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1012 b   |  46 lines
  1. 10 REM THIS PROGRAM CONVERTS
  2. 20 REM "*.SEQ" SEQUENTIAL FILES
  3. 30 REM BACK TO RELATIVE FILES SO THAT
  4. 40 REM THEY CAN BE USED IN
  5. 50 REM "GREAT.CIRCLE.ARC"
  6. 60 RT$=CHR$(13)
  7. 70 INPUT"  INPUT DRIVE";ID
  8. 80 INPUT" OUTPUT DRIVE";OD
  9. 90 OPEN15,OD,15,"I0"
  10. 100 OPEN14,ID,15
  11. 110 PRINT"[147]":FORI=65TO90
  12. 120 PRINT"WORKING ON FILE: "CHR$(I)".SEQ"
  13. 130 OPEN3,ID,3,"0:"+CHR$(I)+".SEQ,S,R"
  14. 140 GOSUB430
  15. 150 INPUT#3,MN:CLOSE3:PRINT"RECORD COUNT:"MN
  16. 160 PRINT"MAKING RELATIVE FILE: "CHR$(I)
  17. 170 OPEN2,OD,2,"0:"+CHR$(I)+",L,"+CHR$(54)
  18. 180 RN=MN:GOSUB360:GOSUB360:PRINT#2,CHR$(255);
  19. 190 RN=1:GOSUB360:GOSUB360:PRINT#2,MN
  20. 200 PRINT"LOADING IT"
  21. 210 OPEN3,ID,3,"0:"+CHR$(I)+".SEQ,S,R":INPUT#3,MN
  22. 220 GOSUB430
  23. 230 FORRN=2TOMN
  24. 240 GOSUB360
  25. 250 INPUT#3,PL$,LA$,LO$
  26. 260 O$=PL$+RT$+LA$+RT$+LO$
  27. 270 PRINT#2,O$;
  28. 280 NEXT
  29. 290 CLOSE2:CLOSE3
  30. 292 IFOD<>IDTHEN320
  31. 300 PRINT"SCRATCHING: "CHR$(I)+".SEQ"
  32. 310 PRINT#14,"S0:"+CHR$(I)+".SEQ"
  33. 320 NEXT
  34. 330 PRINT"ALL DONE."
  35. 340 FORI=1TO15:CLOSEI:NEXT:END
  36. 350 :
  37. 360 RH=INT(RN/256):RL=RN-(256*RH)
  38. 370 PRINT#15,"P"+CHR$(96+2)+CHR$(RL)+CHR$(RH)+CHR$(1)
  39. 380 INPUT#15,E,E$,AA,B
  40. 390 IF E=0ORE=50THENRETURN
  41. 400 PRINT"DISK ERROR" E;E$;AA;B
  42. 410 CLOSE8:CLOSE15:END
  43. 420 :
  44. 430 INPUT#15,E,E$,A,B:IFE<20THENRETURN
  45. 440 CLOSE2:CLOSE3:CLOSE15:PRINT"DISK ERROR" E;E$;A;B
  46.